home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
125adev.zip
/
USERCONF.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-08
|
787b
|
34 lines
defint a-z
type highmesstype
highread as long 'high read number
highscan as long 'high scan number
selected as string * 1 'area selected? (Y/N)
mailwaiting as string * 1 'mail waiting? (ignored if
end type ' netmail area)
declare function pdqvali%(st$)
dim usr as highmesstype
userf$="messages\1.usr"
print "User record number to check?"
line input a$
av=pdqvali(a$)
open userf$ for random shared as 1 len=10
if err then end 1
get #1, av, usr
close 1
print "High Read: "str$(usr.highread)
print "Selected?: "usr.selected
print "Mail Waiting?: "usr.mailwaiting
end 0